png("./test.png")
#pdf("./test.pdf")
split.screen(c(2,2))
l<-c("d","f","w","w","a")
f<-c(9,8,7,6,5)
screen(1)
pie(f,l)
screen(2)
pie(f,l)
screen(3)
pie(f,l)
screen(4)
library("plotrix")
f2<-round(f/sum(f)*100)
pie3D(f,labels=l,explode=0.1)
dev.off()
